home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 November
/
EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso
/
earcd
/
util
/
misc
/
bootute_.lha
/
BootUte_2
/
Install
< prev
next >
Wrap
Text File
|
1995-09-25
|
3KB
|
183 lines
; This is an Installer script that installs BootUte 2.62.
;
; Script written by Paul Toyne.
;
; ©1995 TLS Software.
(set @default-dest "")
(set @app-name "BootUte")
(complete 0)
(if (< (/ (getversion) 65536) 37)
(
(exit "Sorry BootUte only works on Kickstart 2.0 or above\n"
"I suggest you upgrade immediately")
))
(set update
(askbool
(prompt "Do you wish to update an older version of BootUte?")
(help @askbool-help)
)
)
(complete 10)
(if (= update 1)
(
(set bu_name
(askfile
(prompt "Please select your old BootUte executable")
(help @askfile-help)
(default "")
)
)
(complete 30)
(working "Deleting your previous version of BootUte")
(if (exists bu_name)
(
(delete bu_name)
(delete (cat bu_name ".info"))
))
(if (exists "ENV:BootUte" (noreq))
(
(delete "ENV:BootUte")
))
(if (exists "ENVARC:BootUte" (noreq))
(
(delete "ENVARC:BootUte")
))
))
(complete 50)
(if (= update 1)
(
(set tls_dir (pathonly bu_name))
)
(
(set tls_dir
(askdir
(prompt "Please select a location to install the BootUte directory")
(help @askfile-help)
(default "Work:")
)
)
(set tls_dir (tackon tls_dir "BootUte"))
))
(if (NOT (exists tls_dir))
(
(makedir tls_dir
(infos)
)
))
(if (NOT (exists (tackon tls_dir "Docs")))
(
(makedir (tackon tls_dir "Docs")
)
))
(complete 60)
(copyfiles
(prompt "Copying BootUte's files")
(source "")
(dest tls_dir)
(choices "BootUte_2"
"README")
)
(copyfiles
(prompt "Copying BootUte's files")
(source "Docs/")
(dest (tackon tls_dir "Docs"))
(choices "BootUte_2.guide"
"BootUte_2.doc"
"Register_BU.doc")
)
(complete 90)
(set magicwb
(askbool
(prompt "Do you want to install the MagicWB icons ?")
(help @askbool-help)
)
)
(if (= magicwb 0)
(
(copyfiles
(prompt "Copying normal icons")
(source "")
(dest tls_dir)
(choices "BootUte_2.info"
"README.info"
"Docs.info")
)
(copyfiles
(prompt "Copying normal icons")
(source "Docs/")
(dest (tackon tls_dir "Docs"))
(choices "BootUte_2.guide.info"
"BootUte_2.doc.info"
"Register_BU.doc.info")
)
)
(
(copyfiles
(prompt "Copying MagicWB icons")
(source "MagicWB/")
(dest tls_dir)
(choices "BootUte_2.info"
"README.info"
"Docs.info")
)
(copyfiles
(prompt "Copying MagicWB icons")
(source "MagicWB/Docs/")
(dest (tackon tls_dir "Docs"))
(choices "BootUte_2.guide.info"
"BootUte_2.doc.info"
"Register_BU.doc.info")
)
)
)
(complete 95)
(set @default-dest tls_dir)
(if (NOT (exists "ENV:TLS"))
(
(makedir "ENV:TLS")
))
(if (NOT (exists "ENV:TLS/BootUte"))
(
(makedir "ENV:TLS/BootUte")
))
(if (NOT (exists "ENVARC:TLS"))
(
(makedir "ENVARC:TLS")
))
(if (NOT (exists "ENVARC:TLS/BootUte"))
(
(makedir "ENV:TLS/BootUte")
))
(complete 100)